individual_plot1 = make_opium_plot(individual_level, var = outcome1, bw = 15000, label = "")
individual_plot2 = make_opium_plot(individual_level, var = outcome2, bw = 15000, label = "")
individual_plot3 = make_opium_plot(individual_level, var = outcome3, bw = 15000, label = "")
individual_plot4 = make_opium_plot(individual_level, var = outcome4, bw = 15000, label = "")

ggsave(plot = individual_plot1, "./_4_outputs/figures/figure_3a.tiff", height = 3, width = 4, dpi = 300, compression = "lzw")
ggsave(plot = individual_plot2, "./_4_outputs/figures/figure_3b.tiff", height = 3, width = 4, dpi = 300, compression = "lzw")
ggsave(plot = individual_plot3, "./_4_outputs/figures/figure_3c.tiff", height = 3, width = 4, dpi = 300, compression = "lzw")
ggsave(plot = individual_plot4, "./_4_outputs/figures/figure_3d.tiff", height = 3, width = 4, dpi = 300, compression = "lzw")
